(set #destimsg "Where do you want to install STIMP_geom_Preview ?\n(A directory called STIMP will be automaticly created.)")
(set #addlines "\nTwo lines have to be added to your S:User-Startup:\n")
(set #fertig "\n\nSTIMP_geom_Preview is now installed on your harddisk at:\n")
(set #whichcpu "\n\n\nThis shareware version contains an unoptimized\nexecuteable for 68000 only.\n\nOptimized versions are available for registered users.")
(set #reallyuconv "\nDo you want to use the programs\ntogether with Ultraconv3/4 too ?")
)
)
; kleine Begruessung
(message #gruss
)
; Zielpfad ermitteln
(set #destidir
(askdir
(prompt #destimsg)
(help @askdir-help)
(default "GFX:")
)
)
(complete 5)
(set #dstdir
(tackon #destidir "STIMP")
)
; ggf. Verzeichnis fuer STIMP erst erzeugen
(if (= (exists #dstdir) 0)
(makedir #dstdir)
)
(complete 10)
; alle Pfade definieren
(set #binpath
(tackon #dstdir "bin")
)
(set #docpath
(tackon #dstdir "doc")
)
(set #helppath
(tackon #dstdir "help")
)
; leider nur 68000er Variante verfuegbar
(message #whichcpu
)
(complete 20)
; Dokumentation kopieren
(copyfiles
(source "doc")
(dest #docpath)
(pattern "#?")
)
(complete 30)
; Help-Dateien kopieren
(copyfiles
(source "help")
(dest #helppath)
(pattern "#?")
)
(complete 40)
; Programme kopieren
; nur 68000
(copyfiles
(source "bin")
(dest #binpath)
(pattern "#?")
)
(complete 60)
(set #linetoadd1
(cat "Assign STIMP: " #dstdir)
)
(set #linetoadd2 "Assign C: STIMP:bin add")
; Assign-Zeilen in S:User-Startup einfuegen
(startup "STIMP"
(prompt #addlines
#linetoadd1 "\n"
#linetoadd2)
(help "These lines have to be added in order to make the STIMP programs run properly !")